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8J ARITHMETIC OPERATIONS 


Arithmetic may only be performed 
on elementary numeric items defined 
in the Data division and numeric lit- 
erals. Numeric items and literals 
may not exceed 18 decimal digits in 
length. A numeric literal may not be 
the receiving field of an arithmetic 
statement. 

In COBOL, all arithmetic calcula- 
tions are performed in work areas 
established by the compiler during 
program compilation. These areas 
cannot be referenced by the program- 
mer. In its simplest form, an arith- 
metic statement will cause one factor 
to be moved to the work area, then, 
depending on the operation being per- 
formed, the second factor is added, 
subtracted, etc. from the contents of 
the work area. The result is then 
moved from the work area to the re- 
ceiving field specified in the arith- 
metic statement. 

However, since the 360 can only 
perform arithmetic on binary items 
or packed decimal items, the com- 
piler may find it necessary to gen- 
erate instructions to convert one or 
both factors before the calculations 
are performed. In addition, depending 
on the usage of the receiving field, it 
may be necessary to convert the re- 
sult before it can be stored. As an 
illustration, let 1 s assume thatwe wish 
to add ITEMA to ITEMB. ITEMA is 


in packed format: ITEMB is in DIS- 
PLAY. The Procedure division 
statement would be - ADD ITEMA TO 
ITEMB. The compiler would generate 
instructions to first convert ITEMB to 
packed decimal format and then move 
it to a work area. Since ITEMA is al- 
ready in packed decimal format, con- 
version is unnecessary and it can be 
added directly to ITEMB in the work 
area. However, because the usage of 
the receiving field is DISPLAY, the 
contents of the work area would have 
to be converted back to EBCDIC for- 
mat before it could be stored. 

The programmer can specify that 
rounding be performed on the final 
r esult by using the ROUNDING option. 
Rounding is usually desired in situa- 
tions where the intermediate result 
contains more decimal places than the 
final result. When the rounding option 
is exercised, the leftmost digit of the 
digits to be truncated, is examined to 
see if its value is 5 or greater. If it 
is, 1 is added to the rightmost digit 
of the final result. If rounding is not 
specified, the truncated digits are 
not inspected. When used, the re- 
served word ROUNDED must imme- 
diately follow the name of the re- 
ceiving field, e. g. ADD A TO B 
ROUNDED. Some examples of the use 
and non-use of the option are given 
below. 


Intermediate 

Result 

Receiving Field 
Picture 

Rounding Not 
Specified 

Rounding 

Specified 

1. 50 

9V9 

1. 5 

1. 5 

1. 56 

9V9 

1.5 

1.6 

5. 3256 

9V99 

5. 32 

5. 33 

95. 7 

99V 

95. 

96. 

. 0073 

V99 

. 00 



Lesson C 8 


Page 1 . 









The SIZE ERROR option permits 
the programmer to test if arithme- 
tic overflow has occurred. A size 

error, or arithmetic overflow, oc- 
curs when all of the significant digits 
to the left of the decimal point in the 
intermediate result, will not fit into 
the receiving field. If the option isn't 
used and a size error occurs, the re- 
sult stored in the receiving field will 
have had some of its high- order digits 


truncated. If the option is used, noth- 
ing is stored in the receiving field. 
Instead, the imperative statements in 

the option are executed. Size error 
should not be a problem since you 
generally can calculate the size of 
your largest result beforehand. An 
example of an ADD statement which 
includes the ROUNDED and ON SIZE 
ERROR options is shown below. 


ADD INVOICE- AMT TO TOTAL- BILL ROUNDED ON SIZE ERROR 
GO TO SIZE- ERROR- ROUTINE. 


The GIVING option appears in all 
arithmetic statements except for the 
COMPUTE statement. This option al- 
lows the programmer to save the fac- 
tors used in the calculation and have 
the final result stored in another area. 
For example, after execution of the 
statement: ADD A TO B, the contents 
of B have been destroyed and replaced 
by the sum of A + B. If, on the other 
hand, we needed the contents of B for 
another calculation, we could write 
the following statement: ADD A, B 
GIVING C. With this statement, A and 
B would, still be added together in a 
work area but the final result would 
be stored in C and not B. Because the 


contents of the area r epres ented by C 
in the statement above are not used, in 
the calculations, its picture can be 
that of a report item. This means that 
we can, for example, add two num- 
bers together and have the result 
edited, all in one arithmetic state- 
ment. 

ADD Statement 

The ADD statement adds two or 
more elementary numeric items or 
literals and. places the sum in the 
last data- name in the statement. Its 
formats are: 
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In the first format, the contents of tents of all data-names and. literals 

all data-names and/or numeric-lit- preceding the word GIVING are added 

erals, including data- name- n, are andthesumis stored in data-name-n. 

added together and the sum is stored Data-name-n must be either an ele- 

in data-name-n. All implied decimal mentary numeric or report item. Note 

points are aligned. that while the reserved word TO is 

mandatory in the first format, its 
In the second format, at least two use in the second format is forbidden, 

data-names or numeric-literals must Some examples of ADD statements in 

precede the word GIVING. The con- both formats are shown below. 





SUBTRACT Statement 


elementary numeric item. The dif- 
ference is placed in the last data- 
The SUBTRACT statement sub- name in the statement. Its formats 
tracts one or more elementary nu- are: 

meric items or literals from another 


F ormat 1 . 


J data- name- 

numeric-lit 


data- name- 1 ( I data- name - 2 

numeric-literal- 1 ) numeric-literal- 2 ... FROM data- name- n 

QrOUND EdJ |oN SIZE ERROR imperative- statement . .^J . 


Format 2. GIVING option 


J data-name-1 ( data- name- 2 

numeric-literal-1 \ numeric-literaL 


•2] .. 


j data-name-m 
FROM / numeric-literal- m 


GIVING data-name-n | ~ROUND EI) j |oN SIZE ERROR imperative- statement . . 7J . 


In the first format, the values of 
all data- names or numeric- literals 
preceding the word FROM are sub- 
tracted from the contents of data- 
name-n. The resulting difference is 
stored in data-name-n and replaces 
its original contents. 

In the second format, the values 
of all data-names and numeric-lit- 


erals preceding the word FROM are 
subtracted from data-name-m or nu- 
meric-literal-m. The resulting dif- 
ference, however, is stored in data- 
name-n thereby leaving the original 
values of data-name-m or numeric- 
literal- m unchanged. Some examples 
of subtract statements are shown be- 
low. 
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Letus look at a program which uses 
the ADD and SUBTRACT statements. 
An input file is recorded on magnetic 
tape 8 records to the block, 50 cha- 


racters to the record. The file con- 
tains standard labels. Each record in 
the file has the following format: 


1 - 5 

Account Number 

6 - 9 

FLDA xxxx. xx (packed) 

10 - 12 

FLDB xxx. xx (packed) 

13 - 15 

FLDC xxx. xx (packed) 

16 - 18 

FLDD xx. xx (packed) 

19 - 50 

blank 


The program is to create a new 
tape file with the same blocking fac- 


tor and record length. The format of 
the output record is to be: 


1 - 5 

Account Number 

6 - 9 

Result xxxxx. xx ( packed) 

10 - 50 

blank 


The result field in the output re- 
cord is to contain the result of 
FLDA + FLDB - FLDC and FLDD. 
That is, FLDA and FLDB are to be 
added together and FLDC and F LDD 
are to be subtracted from that sum. 

The input and output files and re- 
cords are defined in the Data division 
on lines 01 to 17 of Figure 1. Note 
that the usage of all fields involved 
in the calculations is given as COM- 
PUTATIONAL- 3, or packed decimal 
format. 


The Procedure division begins on 
line 18. The first paragraph opens 
our input and output files . The second 
paragraph reads a record from the 
input file. The AT END clause in the 
statement specifies that the files are 
to be closed and the run terminated 
when end- of- file is detected. 

The third paragraph processes the 
the input record. The first move 
statement clears the output area by 
moving the figurative constant 
SPACES to it. The next statement 
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moves the account number from the 
input area to the output area. The 
next statement is an ADD statement 
with the GIVING option. It will cause 
FLDA and FLDB to be added and the 
sum placed in RESULT. The SUB- 
TRACT statement will subtract FLDC 
andFLDD from the sum of FLDA and 
FLDB and the difference will be 
stored in RESULT. The next two 
statements write the output record 
and branch back to the paragraph 
which will read the next record. This, 
of course, is not the only way the 
program could be written. For in- 
stance, we could have moved FLDB 
to RESULT, added FLDA to RESULT, 


subtracted FLDC from RESULT and, 
finally, subtracted FLDD from RE- 
SULT. With this sequence of state- 
ments we would have arrived at the 
same result. The method used in 
Figure 1, however, saves a little 
handwriting. 

MULTIPLY Statement 

The MULTIPLY statement multi- 
plies two elementary numeric items 
or numeric literals and places the 
product in the last data- name in the 
statement. The formats of the state- 
ments are: 


F ormat 1 . 


MULTIPLY 


data- name- 1 ( 

numeric-literal) BY data-name-2 


ROUND Ed J jjDN SIZE ERROR imperative- statement . . Tj 


Format 2. GIVING option 


MULTIPLY 


data-name- 1 
numeric-literal- 1 


BY 


data-name-2 ( 

numeric-literal- 2 \ GIVING data-name-3 


QtOUNDEp j joN SIZE ERROR imperative- statement . . , 


The first format multiplies the 
contents of data-name- 1 or numeric- 
literal by the contents of data-name- 
2. The original contents of data-name- 
2 are replaced by the resulting pro- 
duct. 


In the second format, data-name- 
1 or numeric- literal- 1 is multiplied 
by the contents of data-name-2 or 
numeric- literal- 2 and the product is 
stored in data-name-3. The original 
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contents of data-name-3 do not take 
part in the multiplication and are re- 
placed by the product. The original 
values of the fir st and second operands 
of the statement are unchanged after 
multiplication. 


Some examples of the multiply 
statement are given below. Note that 
the statement permits only two fac- 
tors to be operated upon. That is, we 
cannot say - MULTIPLY A, B, C, D 
by E. 


MULTIPLY 1. 5 BY HOURS. 


MULTIPLY RATE BY HOURS ROUNDED. 

MULTIPLY RATE BY HOURS GIVING SALARY ROUNDED. 


DIVIDE Statement 

The DIVIDE statement divides one 
elementary numeric item or literal 


into another. The quotient is stored in 
the last data-name in the statement. 
The formats of the statement are: 


F ormat 1 , 




DIVIDE 

) data-name- 1 
* numeric- literal 

INTO data-name- 2 

[ 

ROUNDED 


^ON SIZE ERROR imperative- statement . . 

F ormat 2. 

GIVING option 


DIVIDE i 

data-name- 1 
numeric- literal- 

| ( data-name- 2 j 

1 ) INTO j numeric- literal- 2 ) GIVING data-name-3 

^rounded] 

|oN SIZE ERROR imperative- statement . . . 
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In both formats, the first operand 
(data- name- 1 or numeric- literal- 1 ) 
is the divisor and the second operand 
is the dividend, i. e. the number being 
divided. Make a note of this because 
if you reverse your dividend and your 
divisor, you will get the wrong quo- 
tient. 

In the first format, data- name- 1 
or numeric- literal is divided into 
data- name- 2. The quotient replaces 
the original contents of data-name-2. 
As with all arithmetic statements ex- 


cept for COMPUTE, the contents of 
the first operand remain unchanged 
after execution of the statement. 

The second format causes the first 
operand to be divided into the second 
operand. The quotient is then stored 
in data- name- 3. In this and any other 
statements using the GIVING option, 
the contents of the first and second 
operands remain unchanged after exe- 
cution. Some examples of the DIVIDE 
statement are shown below. 


DIVIDE FLDA INTO F LDB. 


DIVIDE 2 INTO AMOUNT GIVING HALF ROUNDED. 


DIVIDE DVSOR INTO DVDND GIVING QUOTIENT ROUNDED ON 
SIZE ERROR GO TO DIVIDE-OVFLO. 


One last thing about the DIVIDE 
statement. A size error condition will 
result whenever the value of the divi- 
sor is zero. 

Let's look at a program which il- 


lustrates the multiply and divide 
statements. An input file is recorded 
on magnetic tape, 10 records to the 
block, 25 characters to the record. 
Label records are standard. The for- 
mat of the input record is; 


1 - 3 

Salesman number 

9-11 

Quantity sold xxxx (packed) 

16 - 18 

Unit Price x. xxxx (packed) 


Unreferenced positions in the record 
contains blanks. 
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The program is to calculate the 
sale amount and the salesman's 
commission. A new file is to be 
created with the same blocking fac- 


tor and record length. Salesman's 
commission rate is 25% of sale a- 
mount. The format of the output re- 
cord is: 


1 - 3 

Salesman Number 

4-7 

Sale Amount ( xxxxx. xx packed) 

8 - 11 

Commission Amount (xxxxx. xx packed) 


The coding for the program is 
shown in Figure 2. The input file 
and record is described by the en- 
tries on lines 03 to 11. The usages 
of the QTY-SOLD and UNIT-PRICE 
fields are defined as COMPUTA- 
TIONAL- 3. The usage of all other 
items in the record is implied as 
DISPLAY. If you are adding up the 
positions in the record and find that 
they add up to more than 25, it is 
because you have forgotten that in 
the packed decimal format, two 
digits occupy each byte except for 
the rightmost byte which contains a 
digit and the sign. 

The output file is described by 
the FD entry on lines 12 and 13. 
Since we will be building our output 
record in the Working-Storage sec- 
tion, our output record is described 
as an elementary item. 

The Working-Storage section be- 
gins on line 15. The first entry in 
the section is a level 77 indepen- 
dent item. Remember, in the Work- 
ing-Storage section, independent 
items must appear before any re- 
cord descriptions. This area will 
be used in making our calculations. 
The area in which we will construct 
our output record is defined by the 
record description entries on lines 
17 through 21. 


The Procedure division begins 
on page 2 of the coding. The files 
are opened by the OPEN statement 
on line 03. Note that in the OPEN 
statement, we must identify the 
files as input or output files. 

We read our input records with 
the READ statement on line 05. 
When end- of- file is sensed, the im- 
perative statements direct that con- 
trol flow to the paragraph named 
FINISHED. At all other times, con- 
trol will flow to the next sentence 
or paragraph. 

The input record is processed by 
the statements contained in the para- 
graph named PROCESS- RECORD. 
The salesman's number is moved 
from the input area to working- stor- 
age area. The next statement moves 
the QTY-SOLD field to the indepen- 
dent item named AMOUNT. Since 
AMOUNT contains more decimal 
places than QTY-SOLD, the low- 
order positions of AMOUNT will be 
padded with zeros after decimal 
point alignment. The next statement 
multiplies the quantity- sold by the 
unit price to obtain the sale amount. 
Since UNIT- PRICE contains 4 dec- 
imal places, the intermediate result 
will also contain 4 decimal places. 
However, the receiving field, A- 
MOUNT, provides for only two dec- 
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imal places. When the product is 
stored in AMOUNT, the low- order 
digits of the product will be trunca- 
ted. In order to avoid losing signi- 
ficance then, the multiply statement 
states that the product should be 
rounded before truncation. 

The MOVE statement on line 10 
moves the amount of sale from our 
work- area to the output record. We 
next calculate salesman's commission 
with the divide statement on line 1 1 . 
The output record is written from 
our work- area and the program 
branches back to read the next re- 
cord. When end-of-file is sensed, 
control will flow to FINISHED where 
the files are closed and the job term- 


inated. 

Now this is not necessarily the 
best solution to the problem. For 
example, salesman's commission 
would normally be calculated by 
multiplying the sale amount by the 
decimal fraction .25. However, the 
program does serve to illustrate the 
multiply and divide statements. 

COMPUTE Statement 

The COMPUTE statement allows 
the programmer to specify that a 
series of arithmetic operations be 
performed and have the result stored 
in data-name- 1 . The format of the 
statement is: 



/ arithmetic- expression ) 


COMPUTE data-name- 1 

|ROUNDED j = | data-name- 2 [ 



*— — ■* ( numeric-literal / 



|oN SIZE ERROR imperative- statement . . . 

]• 


Data-name- 1 must represent an 
elementary numeric or report item. 
If the data-name- 2 or numeric- literal 
option is used, it is equivalent to a 
move statement. For example, COM- 
PUTE TOTAL = AMOUNT is the same 
as MOVE AMOUNT TO TOTAL. Data- 
name- 2 must be an elementary nu- 
meric item. The figurative constant 
ZEROS may be used as the numeric 
literal. At least one space must pre- 


cede and follow the equal sign in the 
statement. 

An arithmetic expression consists 
of a series of operands which are to 
be added, subtracted, multiplied or 
divided. The expression can specify 
any number of these operations and 
in any sequence. The format of an ex- 
pression is: 
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In an arithmetic expression, sym- 
bols are used instead of the words 
ADD, SUBTRACT, MULTIPLY or 
DIVIDE. The symbol + stands for 
'plus'; - for 'minus'; * for 'times'; 
and / for 'divided by'. These symbols 
must be preceded and followed by 
spaces on the coding sheet. 

Let's look at a sample of a COM- 
PUTE statement which includes an 
arithmetic expression. 


COMPUTE OVERTIME-HOURS = OT-HOURS * 1. 5. 


Translated, this statement says to 
multiply the contents of OT-HOURS by 
the numeric- literal 1. 5 and place the 
result in OVERTIME- HOURS. Note 
that data- name- 1 can also be used as 
data-name-2. When this is done, the 
original contents of data-name-1 are 
replaced by the result - 


COMPUTE OT-HOURS = OT-HOURS * 1. 5. 


In the normal course of operation, 
the calculations are performed from 
left to right with multiplication and 
division performed first, and addition 
and subtract performed last. This 
order can be changed by enclosing 
two or more operands and the sym- 
bols between them, within parenthe- 
ses, e. g. (OT-HOURS * 1.5). Opera- 
tions within parentheses are per- 
formed before operations outside of 
parentheses. An example of the use 
of parentheses is shown below. 
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COMPUTE AVERAGE ROUNDED = (GRADE- 1 + GRADE- 2 + GRADE- 3) / NO-OF- TESTS. 


Parentheses are often required to 
direct that the operations be per- 
formed in a specific sequence. For 
example, in the statement above the 
omission of parentheses would cause 
the wrong answer to be calculated. In 


the normal course of events, division 
(and multiplication) is performed be- 
fore addition and/or subtraction. This 
would cause the statement to be exe- 
cuted as if it were written: 


COMPUTE AVERAGE ROUNDED = GRADE- 1 + GRADE- 2 + (GRADE- 3 / NO- OF- TESTS) . 


Our aim is to calculate an aver- 
age by adding together all grades and 
dividing the sum by the number of 
tests. In the first statement, the 
operations within the parentheses will 
be performed first and then division 
will be performed. In the second 
statement, GRADE- 3 will be divided 


by the number of tests and the quo- 
tient will be added to GRADE- 1 and 
GRADE-2. In some cases, an ex- 
pression can become exceedingly 
complicated with sets of parentheses 
enclosed in other sets of parenthe- 
ses - 


((REGPAY + BONUS + OTPAY) * TAXRATE) 


When there are parentheses within 
parentheses, the operations specified 
by the innermost set of parentheses 
are performed first. 

InFigure 2, we showed a program 


illustrating the multiply and divide 
statements. All of our calculations 
in that program could have been per- 
formed with the COMPUTE statement 
as shown below - 
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PROCESS-RECORD. MOVE NUMBER TO MANNO. 

COMPUTE SALE- AMOUNT = QTY-SOLD * UNIT- PRICE. 
COMPUTE COMMISSION = QTY-SOLD * UNIT-PRICE * . 25. 


8.2 PROGRAM SWITCHES 


All of us are familiar with program 
switches from previous lessons. The 
switch, usually a branch instruction, 
can be manipulated to change the se- 
quence in which the program is exe- 
cuted. Routines can be bypassed or 
executed depending on the status of 


the switch. 

In COBOL, the most common 
switch is the GO TO statement. When 
used as a switch, the GO TO state- 
ment must be the only statement in a 
paragraph as shown below - 


SWITCH-1. GO TO MINOR- ROUTINE. 


The procedure-name in the GO TO 
statement can be changed by means 


of the ALTER statement whose for- 
mat is given below - 


ALTER ! 

[ procedure-name- 1 TO PROCEED TO procedure-name- 2 ! 

) 

1 

1 

j 
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Procedure-name- 1 is the name of 
the procedure containing the GO TO 
statement. Procedure-name- 2 is the 
new procedure-name to which control 
will flow. In effect, the ALTER state- 
ment accomplishes the same result 
as changing the branch address of a 


branch instruction. As an illustra- 
tion, let's assume that we wish 
to modify SWITCH- 1 so that control 
will flow to a procedure named MA- 
JOR-ROUTINE. Our ALTER state- 
ment would be: 


ALTER SWITCH-1 TO PROCEED TO MAJOR-ROUTINE. 


The next time the GO TO state- Another format of the GO TO state- 
ment is executed, a branch to MA- ment is permitted. 

JOR-ROUTINE will be effected. 


SWITCH- 1. GO TO. 


In this format, you may omit a 
procedure-name from the GO TO 
statement. However, before the GO 
TO statement is executed, you must 
set the switch with an ALTER state- 


ment. 

To obtain the effect of a 'NOP' (no 
operation)switch, the technique shown 
below may be used - 


SWITCH- 1. GO TO MAJOR- TOTAL. 
MAJOR- TOTAL. MOVE TOTAL- 2 TO 
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Let's look at a program which 
makes use of the arithmetic state- 
ments and a program switch. 

The input file is recorded on mag- 
netic tape 20 records to the block, 80 
characters to the record. Label re- 


cords are standard. The format of 
the input record is shown in Figure 3. 

The program is to print the listing 
shown in Figure 4. Additional spec- 
ifications are: 


a. Gross Sales = Qty. Sold x Unit Price 

. . , . Gross Sales 

b. Average amount per sale = — of ' Sale ' s 

c. All amounts are to be edited. Zero suppression to units position. 

d. Program is to skip to channel 1 when channel 12 is sensed. 

e. Report headings as shown in Figure 4, are to be printed at the 

top of each page. 

f. All detail lines are to be double- spaced. 


From the specifications we see 
that we will have to include an APPLY 
clause to test for form- overflow. Al- 
so, that our output record will re- 
quire one extra position for the car- 
riage-control character. The editing 
requirement means that we will need 
report pictures in our output record. 
The heading requirement is new to 
our programs. Printed reports nor- 


mally contain heading information at 
the top of each page to identify the 
data printed. In our program, it 
means that we will have to establish 
records in the Working-Storage sec- 
tion, one for each heading line. In 
addition, a page count must be kept. 
The coding for the program is shown 
in F igure 5. 


Item # 

XXX 



No. of 
Sales 

XXX 



Qty 

Sold 

XXXX 



Unit 

Price 

X. XXX 

1 3 

4 

10 

11 13 

14 

20 

21 24 

25 

30 

31 34 


Figure 3. INPUT RECORD FORMAT 


Page 18. 


Lesson C 8 





INTERNATIONAL BUSINESS MACHINES CORPORATION 

PRINTER SPACING CHART 



Lesson C 8 


Poge 19. 

















NOTES ON THE CODING 

Our program begins with the Iden- 
tification and Environment divisions 
which appear on lines 01 to 13 of page 
1. The coding in these two divisions 
does not contain anything new. The 
APPLY clause on line 13, assigns the 
condition- name CHAN- 12 to a form- 
overflow condition for the file named 
PRINT-FILE. 

The Data division begins on line 
15, the File Section on line 16. The 
input file is defined by the FD entry 
on lines 17 and 18. The input record 
is described by the record descrip- 
tion on lines 19 through 25 and con- 
tinues on lines 01 and 02 of page 2. 

The output file is defined by the 
FD entries on lines 03 and 04 of 
page 2. As required for files assigned 
to unit- record equipment, the LABEL 
RECORDS clause specifies OMITTED. 
Our output records will be constructed 
in the Working-Storage section so we 
describe our output record as an ele- 
mentary item. Note that the picture 
specifies a length of 133. The extra 
position is the one required for car- 
riage control. 

The Working-Storage section be- 
gins on line 07. The first entry is an 
independent item named PAGE- 
COUNT. Its picture is numeric with 
COMPUTATIONAL- 3 usage. The 
VALUE clause specifies that the con- 
tents of this area should be zero at 
program load time. 

The independent item entry on line 
09 reserves an area which will be 
needed in making our computations. 
Since we will not add, subtract, etc. 
directly to this area, the VALUE 
clause has been omitted. 

The remaining entries in the Work- 
ing-Storage section are record des- 
criptions, one for each type of line 
to be printed. The program is re- 
quired to print three different types 
of lines. If you refer back to Figure 


4, you will see that one line is the 
first heading line which consists of 
the words 'Yearly Report' and 'Page' 
and the page number. The second 
line is another heading line contain- 
ing the words 'Item No.', 'Gross 
Sales', and 'Average Sale'. The third 
type of line is the detail line contain- 
ing the item number and the edited 
gross sales and average sale amount. 
We will, therefore, require three re- 
cord descriptions. When we are to 
print heading lines we will write our 
line from these areas. When we are 
to print detail lines, we will write 
from the detail line record descrip- 
tion. 

The record description for the first 
heading line appears on lines 1 3 to 19 
of page 2. It begins with the level 01 
entry on line 13 which assigns the 
name ' HEADING- 1' to this record. 
The first entry is a FILLER entry 
with a picture of X(29). If you refer 
to Figure 4, you'll see that there are 
only 28 spaces to the left of the words 
'Yearly Report'. The extra space is 
for carriage control and must be at 
the left end of the record. The VALUE 
IS SPACES clause will ensure that 
this area will contain blanks when the 
program is loaded. The next entry is 
also a FILLER entry with a picture of 
A(13). The VALUE clause will cause 
the words 'Yearly Report' to be stored 
in this area at program execution 
time. Notethatwe have used the word 
FILLER instead of a data-name. We 
could have used a data-name but why 
bother since we will not be making 
any reference to this item in the Pro- 
cedure division. The FILLER entry 
on line 16 defines the 18 blank posi- 
tions between the words 'Yearly Re- 
port' and 'Page'. The VALUE clause 
will ensure that this area contains 
blanks. The entry on line 17 will 
cause the word 'Page' to be stored in 
this area. The next entry, on line 18, 
contains the data-name 'PAGE- NO' 
with an editing picture of ZZ 9. A data- 
name has been assigned to this entry 
since we will be moving the contents 
of our page counter (PAGE-COUNT) 
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to this area. The editing picture will 
cause high-order zeros to be sup- 
pressed. The last entry for this re- 
cord is on line 19. It defines the re- 
maining 65 positions in the record and 
ensures that they contain blanks. 

The record description on lines 20 
to 25 and lines 01 and 02 of page 3, 
defines our second heading line in the 
same manner. 

The detail line record description 
is on lines 03 to 1 0 of page 3. The 
level 01 entry assigns the name DE- 
TAIL- LINE to the record. As with 
the other two record descriptions, 
blank positions on the line are de- 
fined with a VALUE IS SPACES clause. 
The ITEM-NO entry on line 0 5 omits 
the VALUE clause since when we 
move the item number to this area it 
will replace the previous contents. 
The GROSS-SALES entry on line 07 
gives an editing picture of $ZZ, ZZZ. 
ZZ which will zero suppress to the 
units position. The same editing pic- 
ture is employed for the AVG-SALE 
entry one line 09. 

The Procedure division begins with 
the header entry on line 12. The first 
procedure opens our input and output 
files and then branches to the pro- 
cedure to print headings. During the 
course of a program which requires 
that headings be printed, the branch 
to the heading routine occurs when 
channel 12 has been sensed. When 
the program is loaded, obviously 
channel 12 will not have been sensed, 
consequently the programmer must 
take steps to have the heading printed 
for the first page. The GO TO state- 
ment on lines 14 and 15 will cause an 
unconditional branch to the heading 
routine without the requirement that 
channel 12 first be sensed. Now, in 
order to save coding, we have writ- 
ten one common print heading routine 
which will be used to print the first 
and all subsequent headings. We could 
have duplicated the statements to 
print headings and included them in 
the procedure which opened the files 


but this would have required more 
coding. A problem arises, however, 
by the fact that the fir st time the com- 
mon routine is executed we want to 
return to the procedure immediately 
after the GO TO statement on lines 
14 and 1 5. At all other times, we want 
the routine to branch to the statement 
immediately after the test for channel 
12. This means that the exit from the 
heading routine will have to be a 
switch whose procedure- name can be 
changed with an ALTER statement. 
All right, we have opened our files 
and branched to the heading routine 
which is on page 4. If you will scan 
down the page, you will see a proce- 
dure named RETURN-SWITCH on 
line 14. This procedure contains a 
single GO TO statement with the pro- 
cedure-name specified as ALTER- 
SWITCH. The first time the heading 
routine is executed, control will flow 
sequentially through to RETURN- 
SWITCH which, in turn, will cause a 
branch to ALTER-S WITCH. ALTER- 
SWITCHisthe name of the procedure 
immediately following the GO TO 
statement on lines 14 and 1 5 of page 
3. This procedure will modify our 
switch so that all subs equent branches 
will go to the procedure named 
WRITE-DETAIL rather than ALTER- 
S WITCH. 

Our files have now been opened and 
the first heading printed. The READ 
statement on lines 19 and 20 of page 
3 will be used to read our input re- 
cords. When end-of-file is detected, 
the imperative statements in the AT 
END clause will cause the files to be 
closed and the run terminated. 

The input records are processed 
in the procedure named PROCESS- 
RECORD. The item number is moved 
from the input area to our area in the 
Working-Storage section. Gross sales 
are calculated by the COMPUTE 
statement on line 23. The statement 
says to multiply quantity sold by unit 
price, round the product and store it 
in the independent item named GROSS. 
The MULTIPLY statement could also 
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have been used, e. g. MULTIPLY 
QTY-SOLD BY UNIT- PRICE GIVING 
GROSS ROUNDED. The statement on 
line 24 moves the product from the 
independent item to the output- re- 
cord item named GROSS -SALES. The 
picture of GROSS-SALES is that of a 
report item;therefore the move state- 
ment will cause editing to be per- 
formed. Note that the COMPUTE 
statement placed the product in an in- 
dependent item rather than placing it 
directly into GROSS -SALES. Weneed 
the product for our next calculations. 
If the COMPUTE statement had placed 
the product directly into GROSS - 
SALES, it could not have been used 
in another calculation because it 
would have been edited. Only ele- 
mentary numeric items can appear in 
arithmetic operations . GROSS-SALES 
is an elementary report item. 

The statement on line 25 causes 
several functions to be performed. 
The contents of the independent item 
named GROSS are divided by the con- 
tents of NO-OF-SALES. The quotient 
is placed in the item in our output- 
record named AVG-SALE which has 
an editing picture. Therefore, our 
COMPUTE statement has caused not 
only division to be performed, but 
also editing. In this case, we could 
allow our result to be edited since 
we do not need it for any further com- 
putations . 

Our output record has been as- 
sembled in DETAIL- LINE and the next 
statement on line 01 of page 4, tests 
if channel 12 has been detected on 
the previous print cycle. As with all 
simple conditional statements, if the 
condition tested for exists, control 
flows to the imperative statements 
immediately following the test. Other- 
wise, control flows to the next sen- 
tence or paragraph. In this case, if 


channel 12 had been sensed, control 
would flow to the GO TO statement 
which causes a branch to the heading 
routine. If channel 12 had not been 
sensed, control would, flow to the next 
paragraph named WRITE-DETAIL. 


Let's assume that channel 12 has 
notbeen sensed. The WRITE-DETAIL 
paragraph would write our output re- 
cord from the Working-Storage area 
named DETAIL- LINE after double 
spacing. The GO TO statement would 
take us back to the procedure to read 
input records. 

If, on the other hand, channel 12 
had been sensed, the IF statement on 
line 01 would cause a branch to the 
procedure named PRINT -HEADING. 
The first statement in this procedure 
keeps count of the number of pages 
printed by adding a numeric- literal of 
1 to our page counter. PAGE-COUNT 
is defined on page 2, line 8 as an in- 
dependent item with a usage of COM- 
PUTATIONAL- 3 and a value of zeros. 
After incrementing the page counter, 
the next statement moves the counter 
to the first heading line. The picture 
of PAGE-NO will cause zero suppres- 
sion of the two high- order digits. 

The WRITE statement on lines 09 
and 10 will cause the first heading 
line to be printed after skipping to 
channel 1. The next WRITE statement 
will print the second heading line 
after double spacing. The headings 
have been printed and control falls 
through sequentially to the RETURN- 
SWITCH paragraph. The ALTER 
statement on page 3, line 17, changed 
the procedure- name in the GO TO 
statement to WRITE-DETAIL. For the 
remainder of the program, this switch 
will cause a branch back to the pro- 
cedure which prints the detail lines. 


Page 22. 


Lesson C 8 




A standard card form, IBM electro C61897, is available for punching source statements from this form. 








b 

i | * 

■21 si 


H! 


uj I 

U J 
I ? 
(/) 1 


E 

-EE 

Eos 

25 £ o. & 

n £ s s 

jC3j co o. a 
Page 24. 


■m 



■ 



Bl 

Hi HI 




Hi 


Hi 

n n 


HI 


HU 

Hi 

IHI 



Hi 


|^| 


Hll 

bbbi 



H 

Hi 

Hi 

HI 

■■ 


HI 

WM 

Hi 

Hi 

IHI 

BE Hi 


^H 

■ 


i:|H 

ml 

warn 


HH 


hi 

HI 


EBB 

■1 



Hi 

HI 

Hii 

UBf 

■1 





Hll 



Hi 



HI 

^|j 

BT1BI 

HI 

■1 

Hi 

HI 

HI 

El 

H 

■1 

■1 


Hi 


ESI 

wnm 


Hi 

IB 

Hi 

Hi 

iai 

BSHI 

H | 

■1 


Hi 


E-JI 

■■ 

■1 

HI 

■ 

Hi 

Hi 

F1I 

■BE S 

■I 

m 

HI 

Hi 


El 

k*;n 



hi 

Hi 


mi 

PJK 



H 

Hi 


CjI 

E3d 

Em 






S! 


in 


ini 


IKZJI 


fibbed 


tTr.Ri 

F1BHI 

IGR! 

MLI3I 

pm 

bcm’i 




■frB 

Biuni 


EJI 


iKI 


i Earn 


ikeiiei 

incjni 

1EEEI 

iisnm 

mviEii 

iriEEi 

lEsram 


Insjsia 


II HI 


Mil 


lElBSl^EJI 


Rl 

In 

■KlCJRI 

IERSrit^i 

iEEBBpheji 


iriKEiriEEi 


^■EiE!JB^KJKE]Ei£i^O 

IPPIC EPEE EEECF] 

■■■EFUnBBBHlj 


i heH 

ICEE3C1E 

IB MB 'll II I 

irj^B^nrj 
lEE EEt^ 
■■■K3KEE2 
■I arj 

lEB CCC 
fflni 

ieshiHEHI 


H - 

1| , 

■El 

■■■ 

icnl 

lEKKEEl 

iEPEeBI 

iejejBzjcjcjI 


IKZJI 


IB71I 


naEJHi 

IKUBirUI 

iBirni 

lE^rn 


nnniraranid 


J11!1121T11L’L”I 


2CEI 


El 


Lesson C 8 


A standard card form, IBM electro C61897, is available for punching source statements from this form. 








A standard card form, IBM electro C61897, is available for punching source statements from this form. 










H I 
u i 
y i 

i ? 
(/) l 


o 

<o 

— 

— 

n 

pa 

— 

— 

— 

— 

— 

SB 



— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 




113 






LDBi 

B 


















Ej 






■ SB 

■a 

■ 























rjm 

in 















CO 

m 

- 

_____ 

B 

w>\ 

■9 

____ 

___ 



____ 

- 

i^m 

< 

- 

.. _ 

___ 

- 

_____ 






- 

_____ 

. 







» 

— 

— 

— 

— 

— 

— 

_ 

Kli 


— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 


_ 


Ej 






mm 

_l 















in 

IB 


» 






EIBI 


















— 

EJ 

— 

— 

— 

— 

— 

w\m 

El 

— 

— 

— 

— 

— 

— 

- — 

— 

— — 

— 

— 

— 

— 

— 



— 


— 

— 


— 



■w 

K3J 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 


BE 


BS 






<E 







SB 










B.~ 





mi'B 

~© 














Bl 







BTfcjB 

3 

















irji 


ib'ibi 


■■ELI 
HSliBII 
IKBfJ 
iBriji 
IEJM21I 
;IL2KIF£il 

iSbSi 

II 3 K 3 UI 

1BEBI 

ifjBB'Ji 


!HEGI , i!EjEI 

nUKJdKM^I 

n:aLKLti 

IKlffiLJEKJEl 

IEBMEJHKI 

IBTHBMBHI 

IB«Jfl2B^B?JB4rai 

HIFIKHEBI 

IFIBEEIE^ 

IEE 1 EBE 

■VJB2HM 


IEJI 


ini 


IB SI 


wnrjKPJi 

H1ELI 


■■■■■bi 

lEHBBIBI 

IBBfl' ISHIBSHI 

IKEEBEI 

ICJFIELHELn 


IBSI 


IE-1 


IO 


IEI 


ifcsan i 


E 

c e 6 

top 

*-. CT> O’ 

WOO 
>* t w 

CO 0. o. 


!C]CBI 


Page 26. 


Lesson C 8 


A standard card form, IBM electro C61897, is available for punching source statements from this form. 














I.B.M. DATA PROCESSING 
AND COMPUTER PROGRAMMING 


COBOL 

IBM SYSTEM 360 
LESSON C-9 


TABLE OF CONTENTS 
C9.1 Workshop Problem 


ELECTRONIC COMPUTER PROGRAMMING INSTITUTE 


COPYRIGHT 1967. ECP1 SALES CORP. 




WORKSHOP PROBLEM 


This Workshop Problem, for which 
you will code the Identification, En- 
vironment, Data and Procedure divi- 
sion entries, will require many of the 
techniques illustrated in the preceding 


lesson. The input file is contained on 
punched cards which will be read from 
a 2540 reader. The format of the in- 
put records is shown below. 
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INPUT RECORD FORMAT 


Each record is part of an inven- 
tory file and represents the activity 
of specific parts. The part number 
field contains two elements; prefix 
and suffix. The previous balance field 
rperesents the number of parts in 
stock at the time the last inventory 
was taken. The receipts field repre- 
sents the number of parts added to the 
stock since last inventory. The with- 
drawals field represents the number 
of parts issued from stock since last 
inventory. 


The unit cost field contains the 
price which we must pay to purchase 
one part. 

The program is to print the listing 
shown in Figure 1. With the exception 
of the unit cost field, all fields con- 
tained in the input record are to be 
printed. The previous balance, re- 
ceipts and withdrawals amounts are to 
be edited as shown with zero suppres- 
sion being carried out to the units 
position. All amounts in the input re- 
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cord are positive, therefore there is 
no need to include a sign indication in 
the edit picture. The part number is 
to be printed as two fields with an in- 
tervening dash. This cannot be done 
with an editing picture. You will have 
to lay out your record description so 
that a dash appears in this position. 
Each element of the part number will 
have to be defined as an elementary 
item and moved separately. In ad- 
dition, the headings shown in Figure 
1 are to be printed on the first and all 
subsequent pages. A page number is 


also to be printed. 

The program must calculate the 
new balance of parts on hand by adding 
receipts to the previous balance and 
subtracting withdrawals from the sum. 
This new balance is to be printed as 
shown in Figure 1. The dollar value of 
the new balance on hand is also to be 
computed by multiplying the new ba- 
lance by the unit cost. The dollar val- 
ue is to be edited with zero suppres- 
sion to the units position. 
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10.1 THE IF STATEMENT 


Until now, our ability to test con- 
ditions during the course of a program 
has been limited to the AT END and 
ON SIZE ERROR options and the test 
for form- overflow on the printer. As 
programmers we know that there are 
many occasions when we need to know, 
for example, whether one item has a 


greater value than another or whether 
the result of a computation was nega- 
tive or positive. The IF statement will 
enable us to make the following tests: 
relation test, sign test, class test, 
and condition- name test. The formats 
of the statement are shown below. 


F ormat 1. 


IF test- condition THEN statement- 1 Jjstatement- 2 . . 


F ormat 2. 

j NEXT SENTENCE 

IF test- condition THEN ) statement- 1 Is 


tatement-.2 


-] 


( ELSE 




OTHERWISE 

statement- m 

statement- n ... 

• 


In the first format, if the condi- 
tion being tested is false, that is, 
does not exist, control flows to the 
next sentence or paragraph. If the 
condition is true, however, control 
goes to the imperative statements 
immediately following the test. Un- 


less the last imperative statement is 
a GO TO or STOP RUN statement, 
control will then flow to the next para- 
graph or sentence. 

Let's look at two examples of the 
first format. 
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IF BALANCE- ON- HAND IS NEGATIVE WRITE RE-ORDER-RECORD. 
WRITE INVENTORY -REPORT. 

IF BALANCE- ON- HAND IS NEGATIVE GO TO RE- ORDER- ROUTINE. 
WRITE INVENTORY- REPORT. 


In the first example, if the balance- 
on-hand is zero or positive, control 
will flow to the next sentence which 
will write the inventory record. In 
contrast, if the balance- on- hand is 
negative, the imperative statement 
WRITE RE-ORDER- RECORD will be 
executed. Control will then go to 
the next sentence. 

In the second example, we again 
have a situation where a zero or posi- 
tive balance will cause control to flow 
to the next sentence. However, if the 
balance is_ negative, the imperative 
GO TO statement will be executed. 


causing a branch to the RE-ORDER- 
ROUTINE. 

One rule which we must observe 
concerns the placement of uncondi- 
tional GO TO and STOP RUN state- 
ments. The rule applies to both for- 
mats and states that whenever a se- 
ries of imperative statements to be 
executed when the condition is true, 
contains an unconditional GO TO or 
STOP RUN statement, this statement 
must be the last statement of the se- 
ries. This rule can be illustrated by 
the statement below - 


IF BALANCE-ON- HAND IS NEGATIVE GO TO RE-ORDER-ROUTINE MOVE 
BALANCE-ON-HAND TO RE-ORDER- RECORD. 


In the statement shown above, a 
negative balance will cause an im- 
mediate unconditional branch to the 
RE-ORDER- ROUTINE. The MOVE 
statement immediately following the 


GO TO statement can never be exe- 
cuted. To correct this situation, we 
must r ever s e the order of the impera- 
tive statements as shown below - 
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IF BALANCE-ON- HAND IS NEGATIVE MOVE BALANCE- ON- HAND 
TO RE-ORDER- RECORD GO TO RE-ORDER ROUTINE. 


With our corrected statement, a 
negative balance will result in the 
MOVE statement being executed be- 
fore the branch. 

In the first format, we were allow- 
ed to specify the actions to be taken if 
the condition tested were true. If the 
condition was false, control simply 
flowed to the next sentence or para- 
graph. The second format allows us 
not only to specify actions to be taken 
on a true condition, but also the ac- 
tion to be taken on a false condition. 
With this format, a true condition 
causes the imperative statements 
immediately following the - test and 
preceding the word ELSE or OTHER- 
WISE to be executed. Control then 
jumps to the next sentence or para- 


graph unless the imperative state- 
ments included the GO TO or STOP 
RUN statements. 

If, on the other hand, the condition 
tested is false, the statements im- 
mediately following ELSE or OTHER- 
WISE and up to the final period are 
executed. Unless these statements in- 
clude a GO TO or STOP RUN state- 
ment, control will then go to the next 
sentence or paragraph. 

As an example of this format, let's 
assume that we wish to count the num- 
ber of married and non- married em- 
ployees. Regardless of the result of 
the test, we wish to print each rec- 
ord. Using format 2 of the IF state- 
ment, we could write - 


IF MARITAL-STATUS = MARRIED ADD 1 TO MARRIED-COUNT ELSE 
ADD 1 TO SINGLE-COUNT. WRITE EMPLOYEE-RECORD. GO TO 
READ -NEXT -RECORD. 
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In the above statement, if the con- 
dition is true, that is the employee is 
married, the imperative statement 
ADD 1 TO MARRIED- COUNT will be 
executed and control will then jumptc 
the next sentence. If the employee is 
not married, then the imperative 


statements immediately following the 
word ELSE and up to the final period 
will be executed. Note that if we wish- 
ed to print only unmarried employees' 
records, we would have to construct 
our statements as shown below - 


IF MARITAL-STATUS = MARRIED ADD 1 TO MARRIED-COUNT ELSE 
ADD 1 TO SINGLE-COUNT WRITE EMPLOYEE- RECORD. GO TO 
READ-NEXT-RECORD. 


In this situation, the WRITE state- 
ment is now one of the imperative 
statements to be executed on a false 
condition. If the employee is married, 
1 will be added to the count and con- 
trol will flow to the GO TO state- 
ment. If the employee is unmarried, 
1 will be added to the count, the rec- 
ord will be written and control will 
pass to the GO TO statement. 

COMPOUND CONDITIONS 

The examples which we have seen 
so far have tested a single condition. 
Actually, COBOL allows us to test 
multiple conditions with one IF state- 
ment. We can combine simple tests 
into compound conditions by linking 
them together with the logical opera- 


tors AND, OR and NOT. 

AND is used to specify that both 
conditions must be present before they 
can be consider ed true. OR is used to 
specify that if either or both of the 
conditions are present, the condition 
is to be considered true. 

An example of an AND compound 
condition is shown below. When this 
statement was evaluated, a branch to 
EQUAL- TOTAL would occur only if 
TOTAL was equal to both A and to B. 
If A was equal to TOTAL but B was 
unequal, or vice-versa, or both were 
unequal, the branch would not be taken 
and control would flow to the next 
sentence or paragraph. 


IF TOTAL = A AND TOTAL = B, GO TO EQUAL- TOTAL. 
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However, if our requirements were 
that we wanted to branch if either or 
both were equal, we would write our 


compound condition using the logical 
operator OR. 


IF TOTAL = A OR TOTAL = B, GO TO EQUAL- TOTAL. 


In this case, a branch to EQUAL- 
TOTAL would result if either A or B 
were equal to TOTAL or if both were 
equal to TOTAL. 

The word NOT is used to specify 
the opposite of what it would mean if 


NOT were omitted from the test. For 
example, in the statement shown be- 
low, the inclusion of the word NOT 
will cause a branch to UNEQUAL only 
if TOTAL was unequal to A or B, or 
both. 


IF TOTAL IS NOT EQUAL TO A OR TOTAL IS NOT EQUAL TO B, 
GO TO UNEQUAL. 


Perhaps the difference between 
AND and OR can be better understood 
if we explained how the statements are 
executed. Let 1 s look at two statements 


containing compound conditions, the 
only difference between them being 
the logical operator used in the state- 
ment. 


IF TOTAL = A AND TOTAL = B, GO TO EQUAL- ROUTINE. 
IF TOTAL = A OR TOTAL = B, GO TO EQUAL- ROUTINE. 
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When the first statement was exe- 
cuted, if TOTAL was equal to A the 
CPU would proceed to the next test to 
determine if TOTAL was equal to B 
and if so, a branch to EQUAL-ROU- 
TINE would result. However, if TO- 
TAL was unequal to A, the remain- 
ing tests would be ignored since AND 
means both A and B , and control would 

flow to the next ELSE, OTHERWISE, 
or next sentence. 

When the second statement is exe- 
cuted, if TOTAL proves unequal to A, 
the second test will still be made since 
OR means either A or B. Conversely, 
if A proved to be equal to TOTAL, the 
remaining test is not necessary and a 
branch to EQUAL- ROUTINE would re- 
sult. In other words, the logical op- 
erator AND will cause tests to be 


made as long as true conditions are 
encountered. As soon as a false con- 
dition arises, however, the entire 
statement is considered false. If all 
conditions prove true, then the im- 
perative statements are executed. On 
the other hand, an OR statement will 
cause each condition to be tested un- 
til a true condition is detected. At 
that point, the remaining tests are 
ignored and the imperative statements 
are executed. If none of the condi- 
tions prove true, then, and only then, 
is the entire statement considered 
fals e. 

Evaluation of Compound Conditions 

The order in which compound con- 
ditions are evaluated is as follows; 


1. ALL AND's and surrounding conditions are evaluated first, 
starting at the left of the expression and proceeding to the 
right. 

2. The OR' s and their surrounding conditions are then evaluated, 
also proceeding from left to right. 


Parentheses may be used to alter 
this order of evaluation. As with arith- 
metic expressions, evaluation begins 
with the innermost set and proceeds 
to the outermost. Thus in the state- 


ment shown below, BROWN-HAIR OR 
BLACK-HAIR would be evaluated as 
true or false before the rest of the 
expression was considered. 
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IF (BROWN-HAIR OR BLACK-HAIR) AND BLUE-EYES . . . . 


Notice that if the order of evalua- 
tion in the statement above was not 
specified by parentheses, the normal 
order of evaluation would have been 


followed. This would have resulted in 
the statement being considered as if 
it had been written as shown below. 


IF BROWN-HAIR OR (BLACK- HAIR AND BLUE- EYES) . . . 


This gives us a completely differ- 
ent meaning. In the first statement, 
either brown hair and blue eyes or 
black hair and blue eyes would have 
been considered true. In the second 
statement, however, either brown 
hair alone or black hair with blue eyes 
will satisfy the test. 

Continuing in the same vein, let's 
look at another example of the care 
which must be exercised when writing 


compound condition tests. Let's as- 
sume that we wish to branch to OK 
only under the following conditions: 

a. TOTAL must be greater than A or 
equal to B. 

b. . D must be positive. 

If we were to simply write our 
statement as - 


IF TOTAL GREATER THAN A OR TOTAL IS EQUAL TO B AND D IS 
POSITIVE GO TO OK, 
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we would find ourselves branching at 
the wrong times since the statement 


would be evaluated as if it were writ- 
ten as shown below. 


IF TOTAL GREATER THAN A OR (TOTAL IS EQUAL TO B AND D IS 
POSITIVE) GO TO OK. 


The 

caused 


omission of parentheses has 
our conditions to be grouped 


incorrectly. The correct statement is 
given below. 


IF (TOTAL GREATER THAN A OR TOTAL IS EQUAL TO B) AND D IS 
POSITIVE, GO TO OK. 


Another area of difficulty in writ- 
ing compound conditions arises when 
the logical operator NOT precedes a 
parenthetical expression. When this 
is the case, we must remember that 
the preceding NOT causes the logical 
operator within the parentheses to re- 
verse its meaning, i. e. OR' s function 


as AND's while AND's function as 
OR's. For example, in the statement 
IF NOT (A OR B), the condition will 
be considered true only if A and B are 
false. Conversely, the expression 
NOT (A AND B) will be considered 
true if A is false or_ if B is false o£ if 
both are false 
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Some examples of simple and com- 
pound IF statements together with 
their evaluation, are shown below - 


CONDITION 

EVALUATION 

If married 

True if married. 

If not married 

True if single or divorced 

If married and over- 21 

True if both married and 22 or older 

If married or over- 21 

True if either married or 22 or older, or both 

If not (married and over- 21) 

True if not married, or 21 or younger, or both 

If not (married or over- 21) 

True if not married and 21 or younger 


All right, we've learned the gen- 
eral formats of the IF statement, the 
flow of control if the condition is true 
or false, and the manner in which 
compound conditions may be tested. 
We have not yet learned the specific 
formats required to make the four 
types of condition tests which can be 
made with the IF statement. That is, 
the condition- name, class, sign and 
relation tests. Let's start with the 
condition-name since we have already 
learned something about it in our study 
of the Data division. 


Condition- Name Test 

All four types of tests can be writ- 
ten in both formats of the IF state- 
ment. However, for convenience we 
shall illustrate the specific formats 
of the different tests using only for- 
mat 1 of the IF statement. The ex- 
amples which will be provided of their 
use, however, will use both formats. 
The format of a condition- name test 
is shown below. 


IF 

[not 

condition- name THEN statement- 1 

statement- 2 ... 



l_ 


L J 
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In our study of the Data division, 

we learned, that a condition- name en- 
try consisted of the level-number 88, 
a condition-name and a VALUE clause. 
Also, that a condition- name entry may 
only follow an elementary item. The 
condition- name entry allows us to 
equate a name to various values which 
may appear in the elementary item 
preceding the condition- name entry. 
This condition- name may be used in 
anIF statement in the Procedure divi- 


sion to test the contents of the item. 

As an example of the condition- 
name test, let's assume that our in- 
put record contains a one-position 
field which indicates the marital sta- 
tus of the employee. If the digit 1 ap- 
pears in this field it means that the 
employee is married. A digit 2 means 
unmarried. Our record description 
entries would be as follows: 


02 MARITAL-STATUS, PICTURE 9. 
88 MARRIED VALUE IS 1. 

88 SINGLE VALUE IS 2. 


In the Procedure division, we 
could test the contents of MARITAL- 
STATUS with the following statements. 


IF MARRIED ADD 1 TO MARRIED- COUNT. IF SINGLE ADD 1 TO 
SINGLE-COUNT. 

IF MARRIED ADD 1 TO MARRIED- COUNT ELSE ADD 1 TO 
SINGLE- COUNT. 

IF NOT MARRIED ADD 1 TO SINGLE-COUNT ELSE ADD 1 TO 
MARRIED-COUNT. 
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From a programming standpoint, 
the first example is the more efficient 
since the last two examples assume 
that if the item does not contain one 
value, it must contain the other. This 
is not an assumption that can always 


be made in data processing. 

CLASS TEST 

Flie format of the class test is; 





( NUMERIC ) 

r , „ “i 

IF data-name IS 

o 

n 

1 

ALPHABETIC \ statement- 1 

statement- L . . .1 


The class testis used to determine 
whether an item consists only of the 
characters 0 through 9 (NUMERIC) or 
the characters A through Z and the 
space (ALPHABETIC). Data-name 
must be an elementary item whose 
usage is DISPLAY or COMPUTA- 
TIONAL- 3. Items which are in binary 


format cannot be tested. 

The type of item being tested de- 
termines whether the reserved word 
NUMERIC or the reserved word AL- 
PHABETIC maybe used. The permis- 
sible forms are shown below. 


TYPE OF ITEM 

PERMISSIBLE FORMS 

Alphabetic 

ALPHABETIC; NOT ALPHABETIC 

Alphanumeric 

ALPHABETIC; NOT ALPHABETIC 
NUMERIC ; NOT NUMERIC 

Numeric 

NUMERIC; NOT NUMERIC 
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From the above table we can see 
that if we wished to test an alphabe- 
tic item named ALPHA to determine 
if, for some reason or other, it con- 
tained numeric data, we would have to 
phrase our class test as - IF ALPHA 

IS NOT ALPHABETIC - and not - 

IF ALPHA IS NUMERIC .■ In 

other words, the reserved word NU- 
MERIC cannot be used in a class test 


of an alphabetic item. Similarly, to 
test a numeric item, the words NU- 
MERIC or NOT NUMERIC must be 
used. An alphanumeric item, on the 
other hand, may be tested with any of 
the forms shown in the table above. 

Some examples of the class test 
are shown below. 


IF ALPHA IS ALPHABETIC MOVE 'A' TO SWITCH. 

IF NUMBER IS NUMERIC MOVE 'N' TO SWITCH ELSE MOVE 'A' 
TO SWITCH. 

IF NUMBER IS NOT NUMERIC MOVE 'A 1 TO SWITCH ELSE MOVE 
'N' TO SWITCH. 


SIGN TEST 


The format of the sign test is as 
follows: 


\ data- name J _ 

POSITIVE ) 


IF j arithmetic- expression! IS 1 NOT| 

ZERO 


\ ) L J 

NEGATIVE) statement- 1 |statement- 2. . . 

]• 


The sign test is used to determine 
whether the value of a numeric item 
is less than zero (NEGATIVE), grea- 


ter than zero (POSITIVE), or is zero 
(ZERO). Some examples of the test 
are given below. 
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RELATION TEST 

The relation test compares two op- 
erands, either of which can be a data- 
name, a literal or an arithmetic ex- 
pression. Two literals, however, may 
not be compared to each other nor may 
two figurative constants. The format 
of the relation test is given below. 
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THEN statement- 1 statement- 




The symbol > is equivalent to the 
reserved words GREATER THAN. 
The symbol is equivalent to 

the reserved words LESS THAN. 


The equal sign is equivalent to the re- 
served words EQUAL TO. Some ex- 
amples of the relation test are shown 
below. 


IF AMOUNT IS EQUAL TO TOTAL GO TO EQUAL- ROUTINE. 

IF NEW- ACC T- NO IS LESS THAN OLD-ACCT-NO GO TO SEQUENCE- 
ERROR. 

IF YEAR- TO -DATE- PAY + CURRENT-PAY IS GREATER THAN 6600. 00 GO 
TO NO - MORE- FIC A- DEDUCTIONS. 

IF ON-HAND + RECEIPTS - WITHDRAWALS < MINIMUM, GO TO RE-ORDER. 
IF PAYMENTS = AMOUNT-DUE GO TO ZERO- BALANCE. 


Not all comparisons are valid, as 
can be seen from the table shown be- 
low. 


FIRST OPERAND 

PERMISSIBLE COMPARISONS 

Group Item 

All comparisons are valid 

Elementary Alphanumeric 
Item 

All comparisons are valid except that if 
compared to an elementary numeric item, the 
numeric item must be a whole number whose 
usage is DISPLAY 

Elementary Alphabetic 

Item 

Group Item, Elementary Alphanumeric Item, 
Elementary Alphabetic Item 

Elementary Numeric 

Item 

Group Item, Elementary Numeric Item. May 
also be compared to an elementary alphanu- 
meric item if a whole number and in DISPLAY 
format. 

Elementary Report Item 

Group Item, Elementary Alphanumeric Item, 
Elementary Report Item 
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Unlike the table of moves shown 
earlier, permissible comparisons op- 
erate in both directions. That is, if it 
is permissible to compare a group 
item to an elementary report item, it 
is also permissible to compare an 
elementary report item to a group 
item. In other words, it really doesn't 
make any differ ence which is the first 
operand. 

From our table we see that a group 
item may be compared to any item and 
any item may be compared to a group 
item. The same rules apply to an ele- 
mentary alphanumeric item except 
that if the second operand is an ele- 
mentary numeric item, it must have 
DISPLAY usage and be a whole num- 
ber. An elementary alphabetic item 
may be compared to another elemen- 
tary alphabetic item, an elementary 
alphanumeric item, a group item and 
vice-versa. An elementary numeric 
item may be compared to a group item 
and another elementary numeric item. 
It may also be compared to an ele- 
mentary alphanumeric item as long as 
it is a whole number and in DISPLAY 
format. An elementary report item 
maybe compared to a group item, an 
elementary alphanumeric item, or a- 
nother elementary report item. 

There are two types of compari- 
sons: non- numeric (also called alpha- 
numeric) and numeric. Since a nu- 
meric comparison occurs only when 
two elementary numeric items are 
compared, the majority of compari- 
sons fall into the non-numeric cate- 
gory so let's take up the largest 
grouping first. 

Non-numeric Comparisons 

The 360 makes non-numeric com- 
parisons on the basis of the EBCDIC 
collating sequence. In this collating 


sequence, a blank (space) has the low- 
est value followed by the special cha- 
racters such as $, %, etc. Next high- 
est are the letters A through Z with 
A having the lowest value and Z the 
highest. Highest in value are the digits 
0 through 9. 

Comparisons are performed by 
matching characters from each op- 
erand proceeding from high- order to 
low- order. The comparison ends when 
an inequality is found or the end. of 
both fields is encountered. If an in- 
equality is found, the two characters 
are matched according to the collating 
sequence. The field containing the 
character of higher value is con- 
sidered to be greater than the other 
field. If the fields are of the same 
length and no inequality is found, the 
fields are considered to be equal. 

Itis permissible to compare fields 
of unequal length. When fields of dif- 
fering length are compared, compari- 
son proceeds as described above. If 
no inequalities are found, eventually 
the end of the shorter field will be 
reached. At this point, the shorter 
field is treated as if it has been ex- 
tended with low- order blanks to make 
it the same length as the second field. 
Comparison then proceeds matching 
each remaining character in the longer 
field against a blank. If the longer 
field also contains all low- order 
blanks, the fields will be considered 
equal. However, if the longer field 
has even one character other than a 
blank, it will be considered higher. 
Note that length has no bearing on 
value since the fields are matched 
character by character. For example, 
given the contents of FIELDA and 
FIELDB as shown below, a compari- 
son of these fields would result in an 
indication that FIELDA has a greater 
value. 
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FIELD 

CONTENTS 

FIELDA 

FIELDB 

Z 

ABCDEFG 


Why is this? Because a compari- 
son consists of matching the two fields 
character by character until either an 
inequality is found or the end of the 
fields is reached. The moment the 
characters Z and A were compared, 
an inequality would result. Since Z 


has a higher value than A in the col- 
lating sequence, FIELDA would be 
considered to contain a greater value 
than FIELDB. Some further examples 
of non-numeric comparisons are 
shown below. 



CONTENTS 

FIELD OF HIGHER VALUE 

1. FIELDA 
FIELDB 

618AR 

061 8AR 

FIELDA 

2. FIELDA 
FIELDB 

MARKOV 

MARKOVITCH 

FIELDB 

3. FIELDA 
FIELDB 

WILLIAMS 

BROWN 

FIELDA 


Numeric Comparisons 

Numeric comparisons are simi- 
lar in many respects to numeric 
moves. By this we mean that decimal 
points are first aligned and extra high 
or low order positions are filled with 
zeros. The compiler generates the 


necessary instructions and work areas 
to ensure that both operands are the 
same size. For example, if we were 
comparing 85v000 to 0085 the com- 
piler would generate the instructions 
to align and zero-fill the items as 
shown below. 
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High-order zeros supplied 00 85v000 

0085v000 Low-order zeros supplied 


Decimal points 
aligned 


Comparisons are algebraic taking 
into consideration the sign and magni- 
tude of the numbers involved. Posi- 
tive numbers, including numbers with 
'no sign', have a greater value than 
negative numbers. In the 360, zero is 
considered neither positive nor nega- 
tive. 

The problem of avoiding unneces- 
sary conversions which we encoun- 
tered in our study of the numeric 
move, also applies to numeric com- 
parisons. The 360 can compare alge- 
braically two binary items or two 
packed decimal items. If the usage of 
the two items differ, one of them must 
be converted. Similarly, if the usage 
of both items is DISPLAY, both items 
will have to be converted. There are 
ways in which we can reduce the num- 
ber of conversions. For example, if 
a number whose usage was DISPLAY 
was to be compared several times to 
other data, we could move this num- 
ber to a working- storage area whose 
usage was COMPUTATIONAL- 3. In 
any subsequent comparisons, we 
would use the name of the working- 
storage area. This method would 
cause the data to be converted only 
once rather than each time it was in- 


volved in a comparison. 

Now, a numeric comparison auto- 
matically occurs when two elementary 
numeric items are compared. In most 
programs , it is necessary to compare 
unsigned numeric identifying data such 
as account numbers, zip code num- 
bers, etc. , which will never be used 
in computations. Since these items are 
usually defined as elementary numer- 
ic items with DISPLAY usage, a nu- 
meric comparison will caus e the com- 
piler to generate the instructions to 
convert both numbers. One way we 
can avoid this is to give our identify- 
ing data an alphanumeric picture. Any 
comparisons would then be non-nu- 
meric comparisons. Of courre, an 
item whose picture is alphanumeric 
cannot be edited. This problem is 
easily solved by redefining the item 
and giving it a numeric picture. As an 
example, let's assume that we have a 
six-digit part number which consists 
of a 2- digit prefix and a 4- digit part 
number. In our comparisons, we wish 
to compare all 6 digits but in our 
printed report, we wishto have a blank 
space between the prefix and the re- 
maining four digits. Our record des- 
cription entries would be as follows: 
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02 COMPARE- NO PICTURE X(6). 

02 EDIT-NO REDEFINES COMPARE-NO PICTURE 9(6). 


To compare our part number we 
would write the following statement in 
the Procedure division - 


IF COMPARE-NO IS EQUAL TO PART-NUMBER 


To edit the part number, our state- 
ment would be - 


MOVE EDIT-NO TO EDIT- PART-NUMBER. 


Let's look at an illustrative pro- 
gram which makes use of the IF 
statement. Our input will be a file of 
punched cards which are in the for- 
mat shown in Figure 1. The cards are 
in sequence by account number. The 
amount contained in the amount field 
can represent a sale of merchandise 
or a return of merchandise. If co- 
lumn 80 contains the digit 1, the card 
represents a sale; any other code 
represents a return. We are to write 
a program which will print the re- 
port shown in Figure 2. The report 
is a tabulation meaning that as long 
as the account number stays the same 
we will accumulate total sales and to- 
tal returns. When the account number 
changes, we will move our totals to 
the output area, calculate net sales 
by subtracting returns from sales, 
and print the line. Headings are to be 
printed at the top of each page. The 
report is to be double- spaced. All 
amounts are to be edited with zero 
suppression to the units position. It 
is possible that the net sales amount 


will be negative, therefore provision 
must be made for printing the sym- 
bols 'CR 1 . 

Figure 3 illustrates the general 
logic of the program. The coding is 
shown in Figure 4. Although the Iden- 
tification and Environment divisions 
have been omitted, we will assume 
that an APPLY clause in the Environ- 
ment division has equated the condi- 
tion-name CHAN- 12 to a form- over- 
flow condition on the output file. 

Our input file is defined by the FD 
entry on lines 04 and 05 of page 1. 
The input record by the record des- 
cription entries on lines 16 to 12. 
Note that we have defined the account 
number field as an alphanumeric item 
in order to prevent unnecessary con- 
version. Our code field has been fur- 
ther defined with a condition- name en- 
try. In the procedure division, we will 
use a condition-name test to deter- 
mine if the record is a sale or re- 
turn. 
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Open F iles 
Print First 
Heading 


Read 



SW-1 \ Qn 


Turn On 
SW-1 


Move Acct. 
# and Name 
to Output 



Compare 
Acct. Nos. 


Equal? 


Add Amoun 


Turn Off 
SW-2 


Move Total 
Sales and 
Returns to 
Output 


Calculate 
Net Sales 


J Skip to Chan 
and write 
heading 


Add Amount 
to Total 
Sales 


Write line 


Move zeros 
to Total 

Sales & 
Returns 



Figure 3. 


Close Files 
Stop Run 
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The output file is defined by the 
FD entry on lines 14 and 15. Our out- 
put record is defined as an elemen- 
tary item since we will assemble our 
print line in working- storage. Note 
that we have added one extra position 
to our output record length. This is 
the position required for forms con- 
trol and spacing. 

The Working-Storage section be- 
gins on line 18. The first two items 
are independent items which will be 
used to accumulate total sales and to- 
tal returns. The VALUE clause en- 
sures that their initial contents will 
be zero. The USAGE of both items is 
specified as COMPUTATIONAL- 3 
(packed decimal). This will reduce 
the amount of conversions necessary 
during accumulation of the totals and 
also editing of the totals. 

Our heading line is established by 
the record description entries on 
lines 01 to 12 of page 2. The VALUE 
IS SPACES clause in the FILLER en- 
tries will ensure that these positions 
contain blanks when the program is 
loaded. The detail line is established 
by the record description entries on 
lines 13 to 24. Note that the picture 
of NET-SALES includes the credit 
symbol 'CR' and also the editing cha- 
racter 'B' to provide a blank space 
between the net sales figure and the 
credit symbol. 

The Procedure division begins on 
page 3, line 01. The first paragraph 
opens our files and prints the first 
heading. The second paragraph reads 
our input records. The AT END im- 
perative statements will arrange for 
the totals for the last account to be 
printed before the run is stopped. 

SW- 1 on line 10 is written as a 
'NOP' switch which, the first time it 
is executed, will take us to the next 
sequential statement. This statement, 
which appears on line 12, will alter 
the setting of the switch so that for 
the remainder of the program, a 


branch to the compare routine will 
result. The purpose of these two 
statements is, of course, to prevent 
the first record read from entering 
the compare routine. 

The statements on lines 14 and 15 
move the accountnumber and name to 
the output area. We then test our re- 
cord with a condition- name test to 
determine whether the record repre- 
sents a sale or a return. If the con- 
dition is true, that is, it represents 
a sale, the imperative statement ADD 
AMOUNT TO GROSS-SALES will be 
executed and control will flow to the 
next sentence which will take us back 
to our READ statement. If the con- 
dition is false, the imperative state- 
ments immediately following ELSE 
will be executed. Control will then 
flow to the GO TO statement. 

In any case, we will return to our 
READ statement and assuming end- 
of-file has not been sensed, the pro- 
gram will proceed sequentially to 
SW-1. This switch has now been 
changed to take us to the compare 
routine on lines 21 and 22. In this 
routine, the new account number in 
the input area is compared to the old 
account number which has been moved 
to the output area. If the new account 
number is greater than the old account 
number, control will flow to the pro- 
cedure to print the totals. If the con- 
dition is false, control will flow to the 
procedure named SAME- ACCT which 
tests the code in column 80. 

Let's assume that a change in 
accountnumber has been sensed. Con- 
trol will flow to the procedure named 
ACCT-CHANGE on page 4. In this 
procedure, the two totals are moved 
to the output area and net sales are 
calculated by subtracting returns 
from sales. The GIVING option allows 
us to have the result edited without a 
separate MOVE statement. If channel 
12 has been sensed, the program 
causes a skip to channel 1 and the 
heading is written on the new page. 
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Our detail line is printed after double 
spacing. The accumulators are clear- 
ed by moving the figurative constant 
ZEROS to GROSS -SALES, and then 
moving GROSS-SALES to RETURN- 
TOTAL. The GO TO statement on 
line 12 will take us back to NEW- 
ACCT where the new account num- 
ber and name are moved to the out- 
put area and processing of the new 
account's records begins. 


Now, let's look at what happens 
when end- of- file is detected. The AT 
END statements on 07 and 08 of page 
3, causes the branch address of the 
GO TO statement on line 12 of page 4, 
to be changed to CLOSE-FILES. An 
unconditional branch to ACCT- 
CHANGE then occurs. After printing 
the last totals, SW-2 will now take us 
to the next sequential paragraph where 
the files are closed and the run term- 
inated. 


10.2 THE PERFORM STATEMENT 


The PERFORM statement is used 
to create linkage to subroutines and to 


control execution of loops. The for- 
mats of the statement are: 


F ormat 1 . 




PERFORM procedure-name- 1 

|tHRU procedure-name- 



Format 2. 

PERFORM procedure-name- 1 

j~ THRU procedure-name- 2 

\ integer I 

f data-name i 

TIMES 


The PERFORM statement is es- 
sentially a branch but unlike the GO 
TO statement, control returns to the 
statement immediately following the 
PERFORM statement. Procedure- 
name- 1 or 2 can be the name of a 
paragraph or section in the Procedure 
division. It must not, however, be the 
name of the procedure containing the 
PERFORM statement itself. 


In format 1 without the THRU op- 
tion, the PERFORM statement causes 
the single procedure named by pro- 
cedure-name-1 to be executed. After 
execution of the procedure, control 
returns to the statement following the 
PERFORM statement. When the THRU 
option is used, the series of pro- 
cedures beginning with procedure- 
name- 1 and ending with procedure- 
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name- 2 are executed and control re- 
turns to the statement following PER- 
FORM. The procedures must follow 
each other and be arranged in the or- 
der in which they are to be performed. 
The PERFORM statement must not 
be part of any procedure in the series. 


The procedures being performed, 
however, may contain other PER- 
FORM statements. 

Let' s look at some examples of the 
PERFORM statement. 


PERFORM TOTAL-ROUTINE. MOVE TOTAL TO OUTPUT- TOTAL. 
PERFORM MINOR THRU MAJOR GO TO READ-IN. 


In the first statement, the PER- 
FORM statement will cause a branch 
to the procedure named TOTAL-ROU- 
TINE. After execution of the pro- 
cedure, controlwill flow to *he MOVE 
statement. 

The second statement causes the 
procedure named MINOR and all sub- 
sequent procedures up to and includ- 
ing MAJOR to be executed. Control 
then returns to the GO TO statement. 

The instructions to provide link- 
age back to the statement following 
PERFORM are generated by the com- 
piler and take the form of program 
switches. The programmer need not, 
and must not, attempt to provide link- 
age with GO TO statements at the end 
of the procedures to be performed. In 
fact, a GO TO statement must not be 


the last statement of a procedure that 
is to be performed. 

Figure 5 illustrates the logic of the 
simple PERFORM statement. When 
the compiler encounters the PER- 
FORM statement in PROC-1, it will 
generate a switch between PROC-3 
and PROC-4 and instructions to set 
the switch and branch to PROC-3. 

Figure 6 illustrates the operation 
of two PERFORM statements. When 
the PERFORM statement in PROC-1 
is executed, it will cause PROC-A 
and PROC-B to be executed. After 
execution, the switch generated by the 
compiler will cause a branch back to 
PROC-1. When the PERFORM state- 
ment in PROC-3 is executed, only 
PROC-A will be executed and the 
switch will return control to PROC-3. 
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Now, as programmers, we know 

that switches such as those shown in 
Figures 5 and 6 must be reset other- 
wise PROC-A, PROC-B and PROC-C 
in Figure 6, for example, could never 
be executed sequentially. These 
switches are reset on the return from 
the procedures being performed. This 
is why it is essential that none of the 
procedures being performed contains 
a GO TO statement which transfers 
control to some other procedure 
otherwisethe switch will never be re- 


set. Figure 7 illustrates just such a 

situation. The PERFORM statement 
in PROC-1 directs that PROC-A and 
PROC-B be performed. PROC-B, 
however, contains a GO TO statement 
which bypasses the switch and trans- 
fers control to PROC-C. Since no 
linkage was made back to PROC-1 
where it would have been reset, the 
switch remains 'on'. The situation 
shown in Figure 8, however, is per- 
missible since control will eventually 
fall through to the switch. 


PROC-1 


PROC-2 



PROC-A 


PROC-B 


PROC-C 


Figure 7. 
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Let's go back to Figure 8 for a 
moment. Suppose that in the middle 
of PROC-B there was an IF state- 
ment. If the condition was true, we 
wanted to bypass the remainder of 
PROC-B and return to PROC-1. Since 
the switch is generated by the com- 


piler, we cannot branch to it with a 
GO TO statement because it has no 
name. COBOL, provides for situations 
such as these by providing the EXIT 
statement. The format of the EXIT 
statement is: 


paragraph-name. EXIT. 


EXIT must be the only word in the 
paragraph and the paragraph must be 
the last paragraph of the series of 
paragraphs to be performed. An il- 
lustration of its use is shown in Fig- 
ure 9. The PERFORM statement in 
PROC-1 will cause the switch to be 
set and a branch to PROC - A to occur. 
In the middle of PROC-A, a test is 
made to determine whether A is equal 
to B and if so, a branch to PROC-B 


results. PROC-B is a paragraph con- 
taining only the word EXIT. Control 
will fall through to the switch and re- 
turn linkage to PROC-1 will be made. 
Note that if a branch is made to PROC- 
A by means other than a PERFORM 
statement, control will flow sequen- 
tially from PROC-A to PROC-C. The 
coding for a situation of this sort 
might be as follows; 


PROC-1. PERFORM PROC-A THRU PROC-B. 


PROC-A. MOVE ACCTNO TO A. IF A = B GO TO PROC-B. ADD 
PROC-B. EXIT. 

PROC-C. MOVE AMT- PAID 
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PROC-1 



PROC-A 


PROC-B 


PROC-C 


Figure 9. 
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The second format of the PER- 
FORM statement, allows us to have 
a procedure or series of procedures 
executed a specific number of tiems. 


For example, suppose that we wished 
to execute a procedure named LOOP 
5 times. Our statement would be - 


PERFORM LOOP 5 TIMES. 


The compiler will generate in- 
structions to execute the procedure 
named LOOP, each time adding 1 to 
a counter. When the counter equals 
the value of 'integer', control re- 
turns to the statement following the 
PERFORM statement. Our example 
above us ed a numeric literal to speci- 
fy the number of times the loop should 
be executed. With a numeric literal, 
the value stated stays constant 
throughout the program. If the number 
of times the procedure is to be exe- 
cuted can be variable, the data-name 
option is used whereby the contents 
of data-name are altered to provide 
variable loop control. Whether a nu- 
meric literal or data-name is used, 
the value cannot exceed 32, 767. If the 
value of data-name is zero or nega- 
tive, the PERFORM statement is ig- 
nored and control passes to the next 
statement. 


Let's look at Figure 10. The prob- 
lem is the same as the one studied 
earlier in this lesson, only this time 
PERFORM statements will be used. 
The Data division has been omitted 
since we are using the same data. 

The program begins by opening all 
files. The PERFORM statement is 
used to print the first heading. The 
READ statement on line 06 will be 
used to read the first card only. No- 
tice that the AT END clause trans- 
fers control to the next paragraph on 
line 08. Although it is not likely that 


the end- of- file indicator will be on 
when we read the first card, the AT 
END clause is mandatory in a READ 
statement. 

In any case, we will arrive at 
NEW-ACCT which moves the account 
name and number to the output area. 
The record is tested at SAME-ACCT 
to determine whether or not it rep- 
resents a sale. Control then passes 
to the statement which will be used to 
read all subsequent cards in the file. 
The AT END clause specifies that the 
procedures named ACCT-CHANGE 
and CLOSE-FILES are to be per- 
formed and then the run stopped. If 
end- of- file has not been reached, the 
IF statement on lines 16 and 17 com- 
pare the new account number to the 
old. If the new account number is not 
greater than the old, control passes to 
the procedure named SAME-ACCT. 
If, however, the new account number 
is greater, ACCT-CHANGE is per- 
formed and control then passes to the 
GO TO statement which takes us to 
NEW-ACCT. 

ACCT-CHANGE begins on page 2 
of the coding. The two main differ- 
ences between the coding shown in 
Figure 4, are the use of the PER- 
FORM statement in the test for forms 
overflow and the absence of a switch 
attheend of the procedure. The PER- 
FORM statements on the previous 
page will provide for the necessary 
switch to be placed at the end of the 
procedure. Note that none of the pro- 
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cedures on page two end with a GO 
TO statement. All linkages with the 
procedures on the first page are pro- 
vided by the compiler. 

This program has served to illus- 

trate some uses of the PERFORM 


statement. It is not necessarily the 

best solution to the problem. The 
PERFORM statement is a powerful 
tool but requires more core storage 
than simple GO TO switches whose 
settings are changed by the ALTER 
statement. 
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A standard card form, IBM electro C61897, is available for punching source statements from this form. 
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WORKSHOP PROBLEM 

You are to code the Identification, 
Environment, Data and Procedure di- 
visions for the following program. 

A model agency maintains a card 
file which contains information about 
each model represented by the agency. 


The agency has received an assign- 
ment which requires the services of 
three models: one female and two 
male. The program is to search the 
file and print the names, addresses, 
hourly rate, and telephone number s of 
all models who meet the following 
specifications: 


F emale - 

Age 

20 to 50 


Height 

Not less than 5 feet and a half 


Weight 

1 20 to 1 50 


Eyes 

Grey or hazel 


Hair 

Brown 

Male - 

Age 

20 to 50 


Height 

over 6 feet 


Weight 

over 185 


Eyes 

Blue 


Hair 

Any color but must not be bald 

Male - 

Age 

Under 20 


Height 

over 5 feet and a half 


Weight 

120 to 185 


Eyes 

Brown 


Hair 

Brown 
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The input card format is shown in 
Figure 1. The identifying codes which 


can appear in columns 46, 50, 54, 58, 
62 and 66 are given below. 


Sex (Col. 46) 

M 

- 

Male 


F 

= 

F emale 

Age (Col. 50) 

Y 

— 

Under 20 


M 

= 

20 to 50 


0 

r 

over 50 

Height (Col. 54) 

T 

= 

Over six feet 


M 

= 

5 and a half feet to 6 feet 


S 

= 

Under 5 and a half feet 

Weight (Col. 58) 

H 

= 

Over 185 


M 

= 

120 to 185 


L 


Under 120 

Eyes (Col. 62) 

L 

= 

Black 


N 

= 

Brown 


H 

= 

Hazel 


G 

= 

Grey 


U 


Blue 

Hair (Col. 66) 

L 

= 

Black 


N 

= 

Brown 


G 

= 

Grey 


B 


Bald 


The output format is shown in Fig- 
ure 2. Note that the hourly rate is to 
be edited and zero suppression to the 
dollar position. The telephone number 
is to have the area code printed sep- 
arately and the exchange and number 
separated by a dash. Headings are 
not to be printed. However, the pro- 
gram should test for channel 12 and 
skip to channel 1 when that condition 
is sensed. The report is to be double- 
spaced. 


One more thing before you start. 
Notice that some of the codes are du- 
plicated in other columns. For exam- 
ple, 'L' is used to indicate the color 
black in both eyes and hair. If your 
condition- name entries are written as 
shown below, you will have to qualify 
any references to BLACK. That is, 
you will have to tell the compiler which 
BLACK is intended. 


02 EYES PICTURE X. 

88 BLACK VALUE IS 'LL 
02 HAIR PICTURE X. 

88 BLACK VALUE IS 'LL 


Page 2. 


Lesson C 1 1 






Figure 1. INPUT RECORD FORMAT 
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